home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / items.scp < prev    next >
Text File  |  1994-12-05  |  31KB  |  1,410 lines
  1. //────────────────────────────────────────────────────────────────────────
  2. // WEAPON DATA - HEY, THESE ARE IN ALPHABETICAL ORDER!
  3. //────────────────────────────────────────────────────────────────────────
  4.  
  5. // .CURITEM.
  6. { ALBAT
  7.     < HAS_GRAVITY = 1 >
  8.     < IS_BOUNCY = 0 >
  9.     < ELASTICITY = 50 >
  10.     < IS_REFLECTIVE = 0 >
  11.     < MONITOR ART FRAME = 10 >
  12.  
  13.     < EXTENT = ( 10, 10, 10 ) >
  14.  
  15.     < HANDEDNESS = RTHAND
  16.     < ON_RTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  17.     < ON_GROUND = (90I,0J,0K)
  18.  
  19. }
  20.  
  21. { ALBAT_LOAD
  22.     v       CURITEM ABAT ON INCREMENT 20
  23. }
  24.  
  25. { BATT100
  26.     < HAS_GRAVITY = 1 >
  27.     < IS_BOUNCY = 0 >
  28.     < ELASTICITY = 50 >
  29.     < IS_REFLECTIVE = 0 >
  30.     < MONITOR ART FRAME = 1 >
  31.  
  32.     < EXTENT = ( 10, 10, 10 ) >
  33.  
  34.     < HANDEDNESS = RTHAND
  35.     < ON_RTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  36.     < ON_GROUND = (90I,0J,0K)
  37. }
  38.  
  39. { BATT150
  40.     < HAS_GRAVITY = 1 >
  41.     < IS_BOUNCY = 0 >
  42.     < ELASTICITY = 50 >
  43.     < IS_REFLECTIVE = 0 >
  44.     < MONITOR ART FRAME = 1 >
  45.  
  46.     < EXTENT = ( 10, 10, 10 ) >
  47.  
  48.     < HANDEDNESS = RTHAND
  49.     < ON_RTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  50.     < ON_GROUND = (90I,0J,0K)
  51. }
  52.  
  53. { BATT500
  54.     < HAS_GRAVITY = 1 >
  55.     < IS_BOUNCY = 0 >
  56.     < ELASTICITY = 50 >
  57.     < IS_REFLECTIVE = 0 >
  58.     < MONITOR ART FRAME = 10 >
  59.  
  60.     < EXTENT = ( 10, 10, 10 ) >
  61.  
  62.     < HANDEDNESS = RTHAND
  63.     < ON_RTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  64.     < ON_GROUND = (90I,0J,0K)
  65. }
  66.  
  67. { BLASTER
  68.     < IS_WEAPON = 1
  69.     < FLASH_TEXTURE = "flash"
  70.  
  71.     < EXTENT = ( 10, 10, 10 ) >
  72.  
  73.     < HANDEDNESS = RTHAND >
  74.     < ON_RTHAND = (180I,90J,0K) 0LENGTH (0X,0Y,0Z) >
  75.     < ON_GROUND = (0,90,0) >
  76.  
  77.     < HAS_GRAVITY   = 1 >
  78.     < IS_BOUNCY     = 1 >
  79.     < IS_REFLECTIVE = 0 >
  80.     < ELASTICITY    = 100 >
  81. }
  82.  
  83. { BLASTER_FIRE
  84.     P        ~ÇÇ   
  85.     P        ~Çü   
  86.  
  87.     // IF WE'RE IN THE AIR HALLWAY WITH MECHO, LIGHT EVERYTHING UP
  88.     // WE ALSO CHECK THE _AIRMECHO_DEAD FLAG JUST TO MAKE SURE THAT WE DON'T
  89.     //   SCREW UP AIRMECHO'S DEATH SCENE -BES
  90.     I  @ÇÄ             (HFR3) AND ^çò            = $Ç╗    THEN
  91.         {
  92.         C      HFR6
  93.         @Ç╣          LASER 6 60 (0,0,0)
  94.         â      
  95.         C      HFR3
  96.         é     
  97.         }
  98.  
  99.     E    I  @ÇÄ             (HFR6) AND ^çò            = $Ç╗    THEN
  100.         {
  101.         @Ç╣          LASER 6 60 (0,0,0)
  102.         é     
  103.         }
  104.  
  105.     E    I  @ÇÄ             (ZEG) THEN
  106.         {
  107.         Ü            ( 0,10,0, 1 )
  108.         @Ç╣          LASER 6 60 (0,0,0)
  109.         R    CURFIG 0 3
  110.         // DON'T ALLOW ANY CHANGES IN HIS Z-COORDINATE!
  111.         ~ÇÇ    = @üé       (CURFIG)
  112.         ~Çü    = @üâ       (CURFIG)
  113.         »           CURFIG ~ÇÇ    ~Çü    0
  114.         }
  115.  
  116.     E   
  117.         {
  118.         // MAKE A BRIGHT FLARE AS THE GUN FIRES! -KLD
  119.         Ü            ( 0,10,0, 1 )
  120.         @Ç╣          LASER 6 60 (0,0,0)
  121.         }
  122. }
  123.  
  124. { BLASTER2_FIRE
  125.     @Ç¥   BLASTER_FIRE
  126. }
  127.  
  128. { BLASTERM2_FIRE
  129.     @Ç╣          LASER 6 60 (0,0,0)
  130. }
  131.  
  132. { BLASTERM3A_FIRE
  133.     @Ç╣          LASER 6 60 (0,0,0)
  134. }
  135.  
  136. { BLASTERM3B_FIRE
  137.     @Ç╣          LASER 6 60 (0,0,0)
  138. }
  139.  
  140. { BLASTERM4_FIRE
  141.     @Ç╣          LASER 6 60 (0,0,0)
  142. }
  143.  
  144. { BLASTERM5_FIRE
  145.     @Ç╣          LASER 6 60 (0,0,0)
  146. }
  147.  
  148. // ZIP TRIP DEVICE
  149. { BLOCK
  150.     < HAS_GRAVITY = 1 >
  151.     < IS_BOUNCY = 1 >
  152.     < ELASTICITY = 50 >
  153.     < IS_REFLECTIVE = 0 >
  154.     < MONITOR ART FRAME = 16 >
  155.  
  156.     < EXTENT = ( 10, 10, 10 ) >
  157.  
  158.     < HANDEDNESS = LTHAND
  159.     < ON_LTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  160.     < ON_GROUND = (90I,0J,0K)
  161. }
  162.  
  163. { BOMB
  164.     < HAS_GRAVITY = 1 >
  165.     < IS_BOUNCY = 1 >
  166.     < ELASTICITY = 50 >
  167.     < IS_REFLECTIVE = 0 >
  168.  
  169.     < EXTENT = ( 10, 10, 10 ) >
  170.  
  171.     < HANDEDNESS = RTHAND
  172.     < ON_RTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  173.     < ON_GROUND = (90I,0J,0K)
  174. }
  175.  
  176. // CAYNAN'S ARM
  177. { CAYARM
  178.     < HAS_GRAVITY = 1 >
  179.     < IS_BOUNCY = 1 >
  180.     < ELASTICITY = 250 >
  181.     < IS_REFLECTIVE = 0 >
  182.  
  183.     < EXTENT = ( 10, 10, 10 ) >
  184.  
  185.     < HANDEDNESS = RTHAND
  186.     < ON_RTHAND = (270I,0J,0K) 8LENGTH (0X,20Y,0Z) >
  187.     // FOR USE_BOT NURSEBOT
  188.     //< ON_UP_ARM = (270I,0J,0K) 8LENGTH (0X,20Y,0Z) >
  189.     < ON_GROUND = (-90I,0J,0K)
  190. }
  191.  
  192. // CAYNAN'S LOG BOOK
  193. { CAYLOG
  194.     < HAS_GRAVITY = 1 >
  195.     < IS_BOUNCY = 1 >
  196.     < ELASTICITY = 75 >
  197.     < IS_REFLECTIVE = 0 >
  198.     < MONITOR ART FRAME = 7 >
  199.  
  200.     < EXTENT = ( 10, 10, 10 ) >
  201.  
  202.     < HANDEDNESS = LTHAND >
  203.     < ON_LTHAND = (-10I,-30J,0K) 0LENGTH (0X,0Y,0Z) >
  204.     < ON_GROUND = (180,0,180) >
  205.     < MONITOR ART FRAME = 7 >
  206. }
  207.  
  208. // MASTABA CONTROL DEVICE
  209. { CNTROLER
  210.     < HAS_GRAVITY = 1 >
  211.     < IS_BOUNCY = 1 >
  212.     < ELASTICITY = 100 >
  213.     < IS_REFLECTIVE = 0 >
  214.     < MONITOR ART FRAME = 3 >
  215.  
  216.     < EXTENT = ( 10, 10, 10 ) >
  217.  
  218.     < HANDEDNESS = LTHAND
  219.     < ON_LTHAND = (250I,0J,60K) 0LENGTH (0X,0Y,10Z) >
  220.     //< ON_RTHAND = (0I,0J,180K) 0LENGTH (0X,0Y,10Z) >
  221.     < ON_GROUND = (90I,0J,0K)
  222. }
  223.  
  224. // DANE'S LOG BOOK
  225. { DANELOG
  226.     < HAS_GRAVITY = 1 >
  227.     < IS_BOUNCY = 1 >
  228.     < ELASTICITY = 75 >
  229.     < IS_REFLECTIVE = 0 >
  230.     < MONITOR ART FRAME = 7 >
  231.  
  232.     < EXTENT = ( 10, 10, 10 ) >
  233.  
  234.     < HANDEDNESS = LTHAND >
  235.     < ON_LTHAND = (-10I,-30J,0K) 0LENGTH (0X,0Y,0Z) >
  236.     < ON_GROUND = (180,0,180) >
  237.     < MONITOR ART FRAME = 7 >
  238. }
  239.  
  240. { FLUTE
  241.     < HAS_GRAVITY = 1 >
  242.     < IS_BOUNCY = 1 >
  243.     < ELASTICITY = 150 >
  244.     < IS_REFLECTIVE = 0 >
  245.     < MONITOR ART FRAME = 4 >
  246.  
  247.     < EXTENT = ( 10, 10, 10 ) >
  248.  
  249.     < HANDEDNESS = LTHAND
  250.     < ON_LTHAND = (125I,45J,65K) 8LENGTH (0X,0Y,0Z) >
  251.     < ON_GROUND = (0I,0J,0K)
  252. }
  253.  
  254. { FORK
  255.     < HAS_GRAVITY = 1 >
  256.     < IS_BOUNCY = 1 >
  257.     < ELASTICITY = 110 >
  258.     < IS_REFLECTIVE = 0 >
  259.  
  260.     < EXTENT = ( 5, 5, 5 ) >
  261.  
  262.     < HANDEDNESS = LTHAND >
  263.     < ON_LTHAND = (270I,270J,0K) 0LENGTH (0X,0Y,7Z) >
  264.     < ON_GROUND = (90I,0,0)
  265.     < MONITOR ART FRAME = 5 >
  266. }
  267.  
  268. { GRENADE
  269.     < HAS_GRAVITY = 1 >
  270.     < IS_BOUNCY = 1 >
  271.     < ELASTICITY = 110 >
  272.     < IS_REFLECTIVE = 0 >
  273.  
  274.     < IS_WEAPON = 1 >
  275.     < EXTENT = ( 5, 5, 5 ) >
  276.  
  277.     < HANDEDNESS = RTHAND >
  278.     < ON_RTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  279.     < ON_GROUND = (0I,0,0)
  280. }
  281.  
  282. { HANDGUN
  283.     < HAS_GRAVITY = 1 >
  284.     < IS_BOUNCY = 1 >
  285.     < ELASTICITY = 100 >
  286.     < IS_REFLECTIVE = 0 >
  287.  
  288.     < EXTENT = ( 10, 10, 10 ) >
  289.  
  290.     < IS_WEAPON = 1
  291.     < FLASH_TEXTURE = "flash"
  292.  
  293.     < HANDEDNESS = RTHAND >
  294.     < ON_RTHAND = (180I,90J,0K) 0LENGTH (5X,5Y,0Z) >
  295.     < ON_GROUND = (0,90,0) >
  296. }
  297.  
  298. { HANDGUN_FIRE
  299.     // MAKE A BRIGHT FLARE AS THE GUN FIRES! -KLD
  300.     Ü            ( 8,15,8, 1 )
  301. //      @MAKEMISSILE LASER 12 225 (0,0,0)
  302.     @Ç╣          LASER 6 60 (0,0,0)
  303. }
  304.  
  305. { KEY
  306.     < HAS_GRAVITY = 1 >
  307.     < IS_BOUNCY = 1 >
  308.     < ELASTICITY = 100 >
  309.     < IS_REFLECTIVE = 0 >
  310.     < MONITOR ART FRAME = 17 >
  311.  
  312.     < EXTENT = ( 10, 10, 10 ) >
  313.  
  314.     < HANDEDNESS = LTHAND
  315.     < ON_LTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  316.     < ON_GROUND = (90I,0J,0K)
  317. }
  318.  
  319. // APPARENTLY, THIS IS THE KEY TO OPEN UP THE DROPSHIP COCKPIT DOOR
  320. { KEYDVICE
  321.     < HAS_GRAVITY = 1 >
  322.     < IS_BOUNCY = 1 >
  323.     < ELASTICITY = 100 >
  324.     < IS_REFLECTIVE = 0 >
  325.     < MONITOR ART FRAME = 6 >
  326.  
  327.     < EXTENT = ( 10, 10, 10 ) >
  328.  
  329.     < HANDEDNESS = LTHAND
  330.     < ON_LTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  331.     < ON_GROUND = (90I,0J,0K)
  332. }
  333.  
  334. // LEX'S LOG BOOK
  335. { LEXLOG
  336.     < HAS_GRAVITY = 1 >
  337.     < IS_BOUNCY = 1 >
  338.     < ELASTICITY = 75 >
  339.     < IS_REFLECTIVE = 0 >
  340.     < MONITOR ART FRAME = 7 >
  341.  
  342.     < EXTENT = ( 10, 10, 10 ) >
  343.  
  344.     < HANDEDNESS = LTHAND >
  345.     < ON_LTHAND = (-10I,-30J,0K) 0LENGTH (0X,0Y,0Z) >
  346.     < ON_GROUND = (180,0,180) >
  347.     < MONITOR ART FRAME = 7 >
  348. }
  349.  
  350. { LOGBOOK
  351.     < HAS_GRAVITY = 1 >
  352.     < IS_BOUNCY = 1 >
  353.     < ELASTICITY = 75 >
  354.     < IS_REFLECTIVE = 0 >
  355.     < MONITOR ART FRAME = 7 >
  356.  
  357.     < EXTENT = ( 10, 10, 10 ) >
  358.  
  359.     < HANDEDNESS = LTHAND >
  360.     < ON_LTHAND = (-10I,-30J,0K) 10LENGTH (0X,0Y,5Z) >
  361.     < ON_GROUND = (180,0,180) >
  362.     < MONITOR ART FRAME = 7 >
  363. }
  364.  
  365. { MEAT
  366.     < HAS_GRAVITY = 1 >
  367.     < IS_BOUNCY = 1 >
  368.     < ELASTICITY = 50 >
  369.     < IS_REFLECTIVE = 0 >
  370.     < MONITOR ART FRAME = 8 >
  371.  
  372.     < EXTENT = ( 10, 10, 10 ) >
  373.  
  374.     < HANDEDNESS = LTHAND
  375.     < ON_LTHAND = (0I,0J,20K) 10LENGTH (0X,3Y,5Z) >
  376.     < ON_GROUND = (0I,0J,0K)
  377.     < MONITOR ART FRAME = 8 >
  378. }
  379.  
  380. { MEAT1
  381.     < HAS_GRAVITY = 1 >
  382.     < IS_BOUNCY = 1 >
  383.     < ELASTICITY = 50 >
  384.     < IS_REFLECTIVE = 0 >
  385.     < MONITOR ART FRAME = 8 >
  386.  
  387.     < EXTENT = ( 10, 10, 10 ) >
  388.  
  389.     < HANDEDNESS = LTHAND
  390.     < ON_LTHAND = (0I,0J,20K) 10LENGTH (0X,3Y,5Z) >
  391.     < ON_GROUND = (0I,0J,0K)
  392.     < MONITOR ART FRAME = 8 >
  393. }
  394.  
  395. { MEDICAID
  396.     < HAS_GRAVITY = 1 >
  397.     < IS_BOUNCY = 1 >
  398.     < ELASTICITY = 100 >
  399.     < IS_REFLECTIVE = 0 >
  400.     < MONITOR ART FRAME = 9 >
  401.  
  402.     < EXTENT = ( 10, 10, 10 ) >
  403.  
  404.     < HANDEDNESS = LTHAND
  405.     < ON_LTHAND = (90I,0J,160K) 0LENGTH (0X,0Y,0Z) >
  406.     < ON_GROUND = (0I,0J,0K)
  407. }
  408.  
  409. { MONBAT
  410.     < HAS_GRAVITY = 1 >
  411.     < IS_BOUNCY = 0 >
  412.     < ELASTICITY = 50 >
  413.     < IS_REFLECTIVE = 0 >
  414.     < MONITOR ART FRAME = 1 >
  415.  
  416.     < EXTENT = ( 10, 10, 10 ) >
  417.  
  418.     < HANDEDNESS = RTHAND
  419.     < ON_RTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  420.     < ON_GROUND = (90I,0J,0K)
  421. }
  422.  
  423. { PFDBLST
  424.     < HAS_GRAVITY = 1 >
  425.     < IS_BOUNCY = 0 >
  426.     < ELASTICITY = 50 >
  427.     < IS_REFLECTIVE = 0 >
  428.     < MONITOR ART FRAME = 1 >
  429.  
  430.     < EXTENT = ( 10, 10, 10 ) >
  431.  
  432.     < HANDEDNESS = LTHAND
  433.     < ON_LTHAND = (0I,90J,0K) 0LENGTH (3X,-4Y,-4Z) >
  434. }
  435.  
  436. { PHOTO
  437.     < HAS_GRAVITY = 1 >
  438.     < IS_BOUNCY = 0 >
  439.     < ELASTICITY = 50 >
  440.     < IS_REFLECTIVE = 0 >
  441.     < MONITOR ART FRAME = 11 >
  442.  
  443.     < EXTENT = ( 10, 10, 10 ) >
  444.  
  445.     < HANDEDNESS = LTHAND
  446.     < ON_LTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  447.     < ON_GROUND = (-90I,0J,0K)
  448. }
  449.  
  450. // REFLECTIVE SUIT DEVICE
  451. { REFLECT
  452.     < HAS_GRAVITY = 1 >
  453.     < IS_BOUNCY = 1 >
  454.     < ELASTICITY = 100 >
  455.     < IS_REFLECTIVE = 0 >
  456.     < MONITOR ART FRAME = 14 >
  457.  
  458.     < EXTENT = ( 10, 10, 10 ) >
  459.  
  460.     < HANDEDNESS = LTHAND
  461.     < ON_LTHAND = (0I,0J,0K) 0LENGTH (0X,0Y,0Z) >
  462.     < ON_GROUND = (90I,0J,0K)
  463.  
  464.     < SPIN = (0,20,70)
  465. }
  466.  
  467. // ALIEN TRANSLATOR?
  468. { SCANNER
  469.     < HAS_GRAVITY = 1 >
  470.     < IS_BOUNCY = 1 >
  471.     < ELASTICITY = 75 >
  472.     < IS_REFLECTIVE = 0 >
  473.     < MONITOR ART FRAME = 15 >
  474.  
  475.     < EXTENT = ( 10, 10, 10 ) >
  476.  
  477.     < HANDEDNESS = LTHAND
  478.     < ON_LTHAND = (0I,120J,160K) 0LENGTH (0X,0Y,0Z) >
  479.     < ON_GROUND = (90I,0J,0K)
  480. }
  481.  
  482. { TONFA
  483.     < IS_WEAPON = 1
  484.     < FLASH_TEXTURE = "flash"
  485.  
  486.     < EXTENT = ( 10, 10, 10 ) >
  487.  
  488.     < HANDEDNESS = RTHAND >
  489.     < ON_RTHAND = (180I,90J,0K) 0LENGTH (0X,0Y,0Z) >
  490.     < ON_GROUND = (0,90,0) >
  491.  
  492.     < HAS_GRAVITY   = 1 >
  493.     < IS_BOUNCY     = 1 >
  494.     < IS_REFLECTIVE = 0 >
  495.     < ELASTICITY    = 100 >
  496. }
  497.  
  498. { WTALKY
  499.     < HAS_GRAVITY = 1 >
  500.     < IS_BOUNCY = 1 >
  501.     < ELASTICITY = 150 >
  502.     < IS_REFLECTIVE = 0 >
  503.     < MONITOR ART FRAME = 13 >
  504.  
  505.     < EXTENT = ( 10, 10, 10 ) >
  506.  
  507.     < HANDEDNESS = LTHAND
  508.     < ON_LTHAND = (245I,300J,15K) 0LENGTH (0X,0Y,0Z) >
  509.     < ON_GROUND = (-90I,0J,0K)
  510. }
  511.  
  512. //=========================================================================
  513. // START ITEM_USE AREA
  514. //=========================================================================
  515.  
  516. { MEDICAID_USE
  517.  
  518.     // HEALING DR. ESCHER
  519.  
  520.     I  @ÇÄ             ( DGS4 ) THEN
  521.     {
  522.         I  ^âÆ            = $Ç╗    THEN
  523.         {
  524.             I  ^âæ          = $Ç╗    THEN
  525.             {
  526.                 ^âÜ                = $Ç╝  
  527.                 ^âÆ            = $Ç╝  
  528.                 @Ç¢              ( PLAYER )
  529.                 A  OFF
  530.                 G  HEALSTND WALK
  531.                 £    HEALFACE GRADUAL
  532.                 W    1 SECOND
  533.                 M      ESCHER1 
  534.                 M      ESCHER2 
  535.                 M      ESCHER2 
  536.                 M      ESCHER2 FREEZE
  537.                 É        LTHAND
  538.  
  539.                 I  ^âù             > 0 THEN
  540.                 {
  541.                     I  @Çó            ( ^âù             ) = 0 THEN
  542.                     {
  543.                         ^âù             = @Çì      ESCHER_TALK
  544.                     }
  545.                     E   
  546.                     {
  547.                         ^âÿ                  = $Ç╗   
  548.                     }
  549.                 }
  550.  
  551.                 // @@@ PLEASE TRANSLATE
  552.                             @Ç║      (`äï                "DR. ESCHER: Thank you. Let me rest now.")
  553.                 W    3 SECONDS
  554.                 // @@@ PLEASE TRANSLATE
  555.                             @Ç║      (`äÄ                "Here -- take my translator.")
  556.  
  557.                 M      ESCHER4 FREEZE
  558.                 e          SCANNER
  559.  
  560.                 f         LTHAND
  561.                 M      ESCHER5 FREEZE
  562.  
  563.                 // @@@ PLEASE TRANSLATE
  564.                             @Ç║      (`äÅ                "Go to the Alien Temple.~You will need to know what it says there.")
  565.                 W    2 SECONDS
  566.                 // @@@ PLEASE TRANSLATE
  567.                             @Ç║      (`äæ                "A part of what you are now~came from that place.")
  568.  
  569.                 I  @Çó            ( ^âù             ) THEN
  570.                     ^âÿ                  = $Ç╝  
  571.  
  572.                 M      ESCHER3 
  573.                 A  ON
  574.  
  575.                 W    5 SECONDS
  576.                 I  @ÇÄ             ( DGS ) THEN
  577.                     {
  578.                     I  ^âù             > 0 THEN
  579.                         {
  580.                         I  @Çó            ( ^âù             ) = 0 THEN
  581.                             {
  582.                             ^âù             = @Çì      ESCHER_TALK
  583.                             }
  584.                         E   
  585.                             {
  586.                             ^âÿ                  = $Ç╗   
  587.                             }
  588.                         }
  589.                     // @@@ PLEASE TRANSLATE
  590.                                 @Ç║      (`äô                "DR. ESCHER: I'm sorry...~about what they did to you.")
  591.                     I  @Çó            ( ^âù             ) THEN
  592.                         ^âÿ                  = $Ç╝  
  593.  
  594.                     }
  595.  
  596.                 W    2 SECONDS
  597.                 i           LEX GAVEEMED
  598.  
  599.                 W    25 SECONDS
  600.                 i           LEX TRANSL
  601.  
  602.                 ^âÜ                = $Ç╗   
  603.  
  604.                 é     
  605.             }
  606.  
  607.         }
  608.     }
  609.  
  610.     M      USE_MEDIC
  611.  
  612.     I  .ÇüÇÇ             THEN
  613.         {
  614.         .ÇüÇÇ             --
  615.         .ÇéÇÇ        += 20
  616.         I  .ÇéÇÇ        > .ÇéÇà            THEN
  617.             .ÇéÇÇ        = .ÇéÇà           
  618.  
  619.         @Ç¥   LEX_WOUNDS
  620.  
  621.         I  ^ïÇ                 = $Ç╗    THEN
  622.             {
  623.             ^ïÇ                 = $Ç╝  
  624.             W    2 SECONDS
  625.             i           LEX MEDICUSE
  626.             }
  627.         }
  628.     E   
  629.         {
  630.         W    2 SECONDS
  631.         i           LEX MEDICDON
  632.         }
  633. }
  634.  
  635. { MEAT_USE
  636.     M      EAT_MEAT
  637.     I  @Çà    (10,20) < 15 THEN
  638.         @üì           ( `â╣           ,  "Yuck /Ffrench /GIiih" )       //@@@ PLEASE TRANSLATE
  639.     E   
  640.         @üì           ( `â║           ,  "Uggh /Ffrench /GIgitt" )      //@@@ PLEASE TRANSLATE
  641. }
  642.  
  643. // **** LEX PLAYS TWO TUNES AT THE MOMENT ALTERNATELY **** JT
  644. { FLUTE_USE
  645.     P        ~ÇÇ   
  646.  
  647.     É        RTHAND
  648.     M      START_FLUTE
  649.  
  650.     N     (^åÅ   )
  651.         {
  652.         U    0
  653.             ~ÇÇ    = @Çå    `䥠   
  654.             ^åÅ    = 1
  655.             X ÇÇ 
  656.         U    1
  657.             ~ÇÇ    = @Çå    `ä₧    
  658.             ^åÅ    = 0
  659.             X ÇÇ 
  660.         }
  661.     A  OFF
  662.     :FLUTEY
  663.     I  @Çû             (~ÇÇ   ) THEN
  664.         {
  665.         â      
  666.         I  @Çô        ("play_flute") != $Ç╝   THEN
  667.             M      PLAY_FLUTE CONTINUE
  668.         J    #Ç⌐   
  669.         }
  670.     M      STOP_FLUTE
  671.     A  ON
  672.     W    2 SECONDS
  673.     i           LEX FLUTE
  674.     ^Ç¿           ++
  675.     I  ^Ç¿           >  2 THEN
  676.         i           LEX FLUTE2
  677. }
  678.  
  679. { FORK_USE
  680.     A  OFF
  681.     M      LOOK_AT_ITEM
  682.     o         
  683.     @üì           (`ë▒            "A fork")
  684.     W    2 SECONDS
  685.     M      STAND CONTINUE
  686.     A  ON
  687. }
  688.  
  689. { LEXLOG_USE
  690.     ^Ç┤              ++
  691.     M      LOOK_AT_ITEM FREEZE
  692.     @Ç¥   CT_LEXSLOG
  693.     i           LEX MYBOOK
  694.     M      STAND CONTINUE
  695.     ^Ç┤              --
  696. }
  697.  
  698. { CAYLOG_USE
  699.     ^Ç┤              ++
  700.     M      LOOK_AT_ITEM FREEZE
  701.     @Ç¥   CO_CAYNANSLOG
  702.     i           LEX READCAYN
  703.     M      STAND CONTINUE
  704.     ^Çñ               = $Ç╝  
  705.     ^Ç┤              --
  706. }
  707.  
  708. { DANELOG_USE
  709.     ^Ç┤              ++
  710.     M      LOOK_AT_ITEM FREEZE
  711.     @Ç¥   CF_DANESLOG
  712.     i           LEX READDANE
  713.     M      STAND CONTINUE
  714.     ^Çú             = $Ç╝  
  715.     ^Ç┤              --
  716. }
  717.  
  718. { ESCHERLOG_USE
  719.     ^Ç┤              ++
  720.     M      LOOK_AT_ITEM FREEZE
  721.     @Ç¥   DS_ESCHERSLOG
  722.     i           LEX READMES
  723.     M      STAND CONTINUE
  724.     ^Ç┤              --
  725. }
  726.  
  727. { LOGA_USE
  728.     ^Ç┤              ++
  729.     M      LOOK_AT_ITEM FREEZE
  730.     @Ç¥   XLOG 5
  731.     M      STAND CONTINUE
  732.     ^Ç┤              --
  733. }
  734.  
  735. { LOGB_USE
  736.     ^Ç┤              ++
  737.     M      LOOK_AT_ITEM FREEZE
  738.     @Ç¥   XLOG 6
  739.     M      STAND CONTINUE
  740.     ^Ç┤              --
  741. }
  742.  
  743.  
  744. // DEFINITION SECTION
  745.  
  746. // 7.02 CELL ONE/CAYNON'S LOG
  747. { CT_LEXSLOG
  748.     @Ç¥  ( XLOG, 1 )
  749. }
  750.  
  751. // 7.03 CELL ONE/CAYNON'S LOG
  752. { CO_CAYNANSLOG
  753.     @Ç¥  ( XLOG, 2 )
  754. }
  755.  
  756. // 7.10 CELL FOUR/DANE'S LOG
  757. { CF_DANESLOG
  758.     @Ç¥  ( XLOG, 3 )
  759. }
  760.  
  761. // 7.XX DIG SITE/ESCHER'S LOG
  762. { DS_ESCHERSLOG
  763.     @Ç¥  ( XLOG, 4 )
  764. }
  765.  
  766. // COMMON FOR SECTIONS 7.03 7.03 7.10 & NEW ESCHER LOG
  767. { XLOG _LOG_NO
  768.  
  769.     â      
  770.             ( "lgbk" )
  771.     ç                  10 5 10
  772.  
  773.     N      (~ÇÇ    )
  774.     {
  775.         U    1
  776.             j             ( "TEXT", "lex" )
  777.             «        "TEXT" "LOGBOOK"       // ADD ALL THE LOGBOOK ENTRIES
  778.             X Çü 
  779.         U    2
  780.             j             ( "TEXT", "caynan" )
  781.             X Çü 
  782.         U    3
  783.             j             ( "TEXT", "dane" )
  784.             X Çü 
  785.  
  786.         U    4
  787.             j             ( "TEXT", "eshmes" )
  788.             X Çü 
  789.  
  790.         U    5
  791.             j             ( "TEXT", "lock" )
  792.             X Çü 
  793.  
  794.         U    6
  795.             j             ( "TEXT", "lock2" )
  796.             X Çü 
  797.  
  798.         V      
  799.             !     13
  800.     }
  801.  
  802.                    ( "EXTB", "EXIT/FSORTIE/GZURÜCK", $Ç¡           , $Ç▒                );        //@@@ PLEASE TRANSLATE PWR
  803.  
  804.     // WE USING BLANKS HERE SO THAT NO TEXT WILL APPEAR
  805.                    ( "xPDB", "/! ");
  806.                    ( "xPUB", "/! ");
  807.                    ( "xSDB", "/! ");
  808.                    ( "xSUB", "/! ");
  809.  
  810.     :LOOP
  811.            
  812.     â      
  813.     J    #Ç╢ 
  814.  
  815.     :XPDB_REPEAT
  816.     :XPDB_BUTTON
  817.     @Çå   (`ü«        )
  818.     k             ( "TEXT", $Ç┤        )
  819.     J    #Ç╢ 
  820.  
  821.     :XPUB_REPEAT
  822.     :XPUB_BUTTON
  823.     @Çå   (`ü«        )
  824.     k             ( "TEXT", $Ç│      )
  825.     J    #Ç╢ 
  826.  
  827.     :XSDB_REPEAT
  828.     :XSDB_BUTTON
  829.     @Çå   (`ü»        )
  830.     k             ( "TEXT", $Ç╕        )
  831.     J    #Ç╢ 
  832.  
  833.     :XSUB_REPEAT
  834.     :XSUB_BUTTON
  835.     @Çå   (`ü»        )
  836.     k             ( "TEXT", $Ç╖      )
  837.     J    #Ç╢ 
  838.  
  839.  
  840.     :ESCAPE_BUTTON
  841.     :EXTB_BUTTON
  842.     @Çå   (`ü▓        )
  843.     :STOPIT
  844.            
  845. }
  846.  
  847.  
  848. // REF. 6.07 (ADDENDUM TO MONITORS) PHOTO MONITOR
  849. { PHOTO_USE
  850.     I ( @Çú              () ) THEN é     
  851.  
  852.     ^Ç┤              ++
  853.     M      LOOK_AT_ITEM FREEZE
  854.  
  855.              "phto"
  856.     m          
  857.     // PROHIBIT PTR MOVEMENT OF PTR BY DISABLING MONITOR INPUT
  858.     Å               0
  859.     // HIDE INITIAL PTR
  860.                    0
  861.  
  862.     // PLACE PTR (HAND) FROM BEG TO END POSITION
  863.     //MON_DEFINEBUTTON "begb" _MON_HIGHLIGHT
  864.     //MON_DEFINEBUTTON "endb" _MON_NORMAL
  865.  
  866.     // SIMULATE TAB PRESS TO MOVE FROM "beg" BUTTON POS TO "end" BUTTON POS
  867.     // ALLOW INOUT BRIEFLY
  868.     //MON_ENABLEINPUT 1
  869.     //ADDKEY _HK_TAB
  870.     // ALLOW PROCESSING OF TAB BEFORE DISABLING MONITOR INPUT AGAIN
  871.     //SUSPEND
  872.     // PROHIBIT PTR MOVEMENT OF NEW PTR BY DISABLING MONITOR INPUT
  873.     //MON_ENABLEINPUT 0
  874.     W    2 SECONDS
  875.     i           LEX LOOKPIC
  876.     W    1 SECOND
  877.  
  878.     J    #üä          
  879.  
  880.     :LOOP
  881.            
  882.     â      
  883.     J    #üâ 
  884.  
  885.  
  886.     :ESCAPE_BUTTON
  887.            
  888.     M      STAND CONTINUE
  889.     ^Ç┤              --
  890. }
  891.  
  892. { VOLUMEOFWALKYTALKY
  893.     @Ç¢               PLAYER
  894.     I  @ÇÜ            (WTALKY) = $Ç╗    THEN
  895.         é      0
  896.  
  897.     I  @Çæ        (ANYWHERE,WTALKY) THEN
  898.         é      255
  899.  
  900.     I  @üü          () < 300 THEN
  901.         é      120
  902.  
  903.     I  @üü          () < 600 THEN
  904.         é      50
  905.  
  906.     é      0
  907. }
  908.  
  909. { ESCHERS_PLEES_FOR_HELP
  910.     P        ~ÇÇ    
  911.     I  @ÇÜ            (WTALKY) = $Ç╗    THEN é     
  912.     I  ^ç▒                  = $Ç╗    OR ^âæ          OR ^ïÅ        THEN é     
  913.     I  ^âô             OR ^âæ          THEN é     
  914.  
  915.     @Ç¢              (PLAYER)
  916.  
  917.     :TOP
  918.     W    @Çà    (240,500) SECONDS
  919.  
  920.     I  ^âæ          OR ^ïÅ        THEN é     
  921.  
  922.     // VARY THE VOLUME OF THE TRANSMISSION ACCORDING TO HOW FAR AWAY
  923.     //   LEX IS FROM THE WALKY TALKY
  924.     ~ÇÇ     = @Ç¥  ( VOLUMEOFWALKYTALKY )
  925.     I  ~ÇÇ     = 0 THEN J    #üç
  926.  
  927.     I  @Çà    (10,20) < 15 THEN
  928.                     @üì            `ââ                $Ç╜      ~ÇÇ     "Is anybody there?" //@@@ PLEASE TRANSLATE
  929.     E   
  930.                     @üì            `âä                $Ç╜      ~ÇÇ     "Does anybody read me?" //@@@ PLEASE TRANSLATE
  931.     @üì            `åù               $Ç╜      ~ÇÇ     "Help me, please.  Somebody..."     //@@@ PLEASE TRANSLATE
  932.  
  933.     W    5 SECONDS
  934.     i           LEX ESHMES
  935.  
  936.     J    #üç
  937. }
  938.  
  939. // TRIGGER FOR MASTABA'S SPEECH
  940. { MMESSAGE
  941.     
  942.     // IF MASTABA IS GONE, DON'T LET HIM TALK - BAR
  943.  
  944.     I  ^çö            THEN é     
  945.  
  946.     I  @ÇÜ            (WTALKY) = $Ç╗    THEN é     
  947.     I  ^ç▒                  = $Ç╗    OR ^ïÅ        THEN é     
  948.     @Ç¢              (PLAYER)
  949.     I  ^ïÅ        THEN é     
  950.     I  ^å╖             = $Ç╗    THEN
  951.         {
  952.         ^å╖             = $Ç╝  
  953.         ^å╢      ++
  954.         @Çì      RANDOM_MASTABA_SPEECH
  955.         }
  956. }
  957.  
  958. // IF YOU'VE GOTTEN THE WALKY-TALKY
  959. { RANDOM_MASTABA_SPEECH
  960.     P        ~ÇÇ    
  961.     
  962.     // VARY THE VOLUME OF THE TRANSMISSION ACCORDING TO HOW FAR AWAY
  963.     //   LEX IS FROM THE WALKY TALKY
  964.     ~ÇÇ     = @Ç¥  ( VOLUMEOFWALKYTALKY )
  965.     I  ~ÇÇ     = 0 THEN é     
  966.  
  967.     //@@@ PLEASE TRANSLATE
  968.     N     (^å╢     )
  969.         {
  970.         U    1
  971.                         @üì           (`éö               $Ç╜      ~ÇÇ     "Listen to me.~Save yourself.")
  972.                         @üì           (`éå               $Ç╜      ~ÇÇ     "I am your protector, your creator...")
  973.             X Çé 
  974.         U    2
  975.                         @üì           (`éò               $Ç╜      ~ÇÇ     "You are too valuable to die here.")
  976.                         @üì           (`à┐               $Ç╜      ~ÇÇ     "You are everything we Mondites~dream of becoming.")
  977.                         @üì           (`åÇ               $Ç╜      ~ÇÇ     "The hope for the future.")
  978.             X Çé 
  979.         U    3
  980.                         @üì           (`éû               $Ç╜      ~ÇÇ     "Am I your god because I created you...")
  981.             // ALWAYS PUT A SPACE BEFORE ANY LEADING ELIPSIS. -KLD
  982.                         @üì           (`éù               $Ç╜      ~ÇÇ     " ...or are you my god,")
  983.                         @üì           (`åü               $Ç╜      ~ÇÇ     "for you are the attainment~of everything I believe in?")
  984.                         @üì           (`åé               $Ç╜      ~ÇÇ     "I promise you this -")
  985.                         @üì           (`åâ               $Ç╜      ~ÇÇ     "we shall find out!")
  986.             X Çé 
  987.         U    4
  988.                         @üì           (`éÿ               $Ç╜      ~ÇÇ     "Doctor Escher is the~one who betrayed you.")
  989.                         @üì           (`éÖ               $Ç╜      ~ÇÇ     "She is insane.")
  990.                         @üì           (`åä               $Ç╜      ~ÇÇ     "She tried to murder us all.")
  991.                         @üì           (`åà               $Ç╜      ~ÇÇ     "If you see her,~protect yourself.")
  992.                         @üì           (`åå               $Ç╜      ~ÇÇ     "Kill her!")
  993.             X Çé 
  994.         U    5
  995.                         @üì           (`éÜ               $Ç╜      ~ÇÇ     "There is no way to~get out of the crater~before it goes critical.")
  996.                         @üì           (`颠              $Ç╜      ~ÇÇ     "Unless you surrender,~you are dead.")
  997.             X Çé 
  998.         U    6
  999.                         @üì           (`飠              $Ç╜      ~ÇÇ     "Go on! Destroy yourself!")
  1000.                         @üì           (`åç               $Ç╜      ~ÇÇ     "I made you! And I can always make~another one of you!")
  1001.         }
  1002.     ^å╖             = $Ç╗   
  1003. }
  1004.  
  1005. { MASTABA_THREATENS_ESCHER
  1006.     P        ~ÇÇ    
  1007.     
  1008.     I  @ÇÜ            (WTALKY) = $Ç╗    THEN é     
  1009.     I  ^âô             = $Ç╝   THEN é     
  1010.     I  ^çö            THEN é     
  1011.     I  ^å╕                 THEN é     
  1012.  
  1013.     W    15 SECONDS
  1014.     I  ^ç▒                  = $Ç╗    OR ^âæ          OR ^ïÅ        THEN é     
  1015.     
  1016.     @Ç¢              (PLAYER)
  1017.     
  1018.     ~ÇÇ     = @Ç¥  ( VOLUMEOFWALKYTALKY )
  1019.     I  ~ÇÇ     = 0 THEN é     
  1020.  
  1021.                 @üì           (`åÄ               $Ç╜      ~ÇÇ     "As you're so interested with~my work, Doctor Escher...")
  1022.                 @üì           (`åÅ               $Ç╜      ~ÇÇ     "I'm sending my best killing machine~to meet you.")
  1023.     @üì           (`åÉ               $Ç╜      ~ÇÇ     "I'm certain you'll find~him quite entertaining.")
  1024.     ^å╕                 = $Ç╝  
  1025. }
  1026.  
  1027. { TONFA_FIRE
  1028.     P        ~ÇÇ   
  1029.     P        ~Çü   
  1030.  
  1031.     // IF THE PROCESS IF RUNNING DO NOTHING BUT THE CAPTION
  1032.     I  @Çó             ^ïÆ             THEN
  1033.         {
  1034.         //@@@TRANSLATE
  1035.         @üì           (`èÅ                 "Tonfa Gun Overheating/GTonfa_Geweher ueberhitzt/F")
  1036.         é     
  1037.         }
  1038.  
  1039.     // START THE TIMER UNLESS ITS ALREADY GOING
  1040.     // IF _TONFA_TIMER == 20 THEN _TONFA_HANDLE = @PROCESS (TONFA_TIMER)
  1041.     I  @Çó             ^ïæ           != 1 THEN ^ïæ           = @Çì      (TONFA_TIMER)
  1042.  
  1043.     Ü            ( 0,10,0, 1 )
  1044.     @Ç╣          TNFABOLT 6 60 (0,0,0)
  1045.     ^ïò         ++
  1046.  
  1047.     I  @ÇÄ             (ZEG) THEN
  1048.         {
  1049.         Ü            ( 0,10,0, 1 )
  1050.         @Ç╣          LASER 6 60 (0,0,0)
  1051.         R    CURFIG 0 6
  1052.         // DON'T ALLOW ANY CHANGES IN HIS Z-COORDINATE!
  1053.         ~ÇÇ    = @üé       (CURFIG)
  1054.         ~Çü    = @üâ       (CURFIG)
  1055.         »           CURFIG ~ÇÇ    ~Çü    0
  1056.         }
  1057.  
  1058.     // TURN THE TONFA GUN BARREL RED
  1059.     N      ^ïò        
  1060.         {
  1061.         U    1
  1062.             w     CURITEM DRAWONLY TONLFTOO PICTURE 1
  1063.             w     CURITEM DRAWONLY TONRGT00 PICTURE 7
  1064.             X Çâ 
  1065.         U    2
  1066.             w     CURITEM DRAWONLY TONLFTOO PICTURE 2
  1067.             w     CURITEM DRAWONLY TONRGT00 PICTURE 8
  1068.             X Çâ 
  1069.         U    3
  1070.             w     CURITEM DRAWONLY TONLFTOO PICTURE 3
  1071.             w     CURITEM DRAWONLY TONRGT00 PICTURE 9
  1072.             X Çâ 
  1073.         U    4
  1074.             w     CURITEM DRAWONLY TONLFTOO PICTURE 4
  1075.             w     CURITEM DRAWONLY TONRGT00 PICTURE 10
  1076.             X Çâ 
  1077.         U    5
  1078.             w     CURITEM DRAWONLY TONLFTOO PICTURE 5
  1079.             w     CURITEM DRAWONLY TONRGT00 PICTURE 11
  1080.             X Çâ 
  1081.         U    6
  1082.             w     CURITEM DRAWONLY TONLFTOO PICTURE 6
  1083.             w     CURITEM DRAWONLY TONRGT00 PICTURE 12
  1084.             X Çâ 
  1085.         V      
  1086.             Q       "Error: too many shots fired!"
  1087.         }
  1088.  
  1089.     I  ^ïò         > 5 && (@Çó             ^ïæ          ) THEN
  1090.         {
  1091.                    ^ïæ          
  1092.         @Çå    (`Çì          , 100)
  1093.         W    5
  1094.         @Çå    (`Çì          , 100)
  1095.         W    5
  1096.         @Çå    (`Çì          , 100)
  1097.         W    5
  1098.  
  1099.         //@@@TRANSLATE
  1100.         @üì           (`èÅ                 "Tonfa Gun Overheating/GTonfa_Geweher ueberhitzt/F")
  1101.         ^ïÆ             = @Çì      (WAIT_30)
  1102.         }
  1103.  
  1104. }
  1105.  
  1106. [ TONFA_TIMER
  1107.  
  1108.     :START
  1109.     01:00   ^ïô          --
  1110.  
  1111.     ò            
  1112.  
  1113.     I  ^ïô          > 0 THEN J    #üì  
  1114.  
  1115.     // RESET TIMER
  1116.     ^ïô          = 20
  1117.     ^ïò          =  0
  1118.  
  1119. ]
  1120.  
  1121.  
  1122. [ WAIT_30
  1123.  
  1124.     00:00   ^ïû       = $Ç╗   
  1125.  
  1126.     :START
  1127.     01:00   ^ïö        --
  1128.  
  1129.     ò            
  1130.  
  1131.     I  ^ïö        >= 0 THEN J    #üÅ  
  1132.  
  1133.     // RESET FLAGS
  1134.     ^ïò          = 0
  1135.     ^ïô          = 20
  1136.     ^ïö              = 30
  1137.     ^ïû              = $Ç╝  
  1138.  
  1139.     // CHANGE THE GUN'S TEXTURE MAPS BACK TO NORMAL
  1140.  
  1141.     w     CURITEM DRAWONLY TONLFTOO PICTURE 5
  1142.     w     CURITEM DRAWONLY TONRGT00 PICTURE 11
  1143.     W    4
  1144.  
  1145.     w     CURITEM DRAWONLY TONLFTOO PICTURE 4
  1146.     w     CURITEM DRAWONLY TONRGT00 PICTURE 10
  1147.     W    4
  1148.  
  1149.     w     CURITEM DRAWONLY TONLFTOO PICTURE 3
  1150.     w     CURITEM DRAWONLY TONRGT00 PICTURE 9
  1151.     W    4
  1152.  
  1153.     w     CURITEM DRAWONLY TONLFTOO PICTURE 2
  1154.     w     CURITEM DRAWONLY TONRGT00 PICTURE 8
  1155.     W    4
  1156.  
  1157.     w     CURITEM DRAWONLY TONLFTOO PICTURE 1
  1158.     w     CURITEM DRAWONLY TONRGT00 PICTURE 7
  1159.     W    4
  1160.  
  1161.     //APPLY CURITEM RESTORE FISTS
  1162.     w     CURITEM RESTORE
  1163.  
  1164. ]
  1165.  
  1166.  
  1167. // JUST SET THE CURRENT ITEM CORRECTLY BEFORE CALLING -BES
  1168. { RESTOREALIASOFBATTERY
  1169.     N     ( .ÇüÇé                  )
  1170.         {
  1171.         U    $üò      
  1172.             n             CURITEM ABAT_500
  1173.             .ÇüÇü                 = 500
  1174.             X Çä 
  1175.  
  1176.         U    $üö     
  1177.             n             CURITEM BAT_100
  1178.             .ÇüÇü                 = 100
  1179.             X Çä 
  1180.  
  1181.         U    $üô     
  1182.             n             CURITEM BAT_150
  1183.             .ÇüÇü                 = 150
  1184.             X Çä 
  1185.  
  1186.         V      
  1187.             Q       "/!Unknown battery type: %d", .ÇüÇé                   // DO NOT TRANSLATE
  1188.             X Çä 
  1189.         }
  1190. }
  1191.  
  1192.  
  1193. // JUST SET THE CURRENT ITEM CORRECTLY BEFORE CALLING -BES
  1194. { PREPAREBATTERYFORSTORAGE
  1195.     I  .ÇüÇü                 = 100 THEN
  1196.         .ÇüÇé                  = $üö     
  1197.  
  1198.     E    I  .ÇüÇü                 = 150 THEN
  1199.         .ÇüÇé                  = $üô     
  1200.  
  1201.     E    I  .ÇüÇü                 = 500 THEN
  1202.         .ÇüÇé                  = $üò      
  1203.  
  1204.     E   
  1205.         Q       "/!Unknown battery max charges: %d", .ÇüÇü                   // DO NOT TRANSLATE
  1206. }
  1207.  
  1208. { BAT_100_USE
  1209.     @Ç¥   REPLACEBATTERYINLEG
  1210. }
  1211.  
  1212. { BAT_150_USE
  1213.     @Ç¥   REPLACEBATTERYINLEG
  1214. }
  1215.  
  1216. { ABAT_500_USE
  1217.     @Ç¥   REPLACEBATTERYINLEG
  1218.     W    5 SECONDS
  1219.     i           LEX ALBATIN
  1220. }
  1221.  
  1222. { REPLACEBATTERYINLEG
  1223.     A  OFF
  1224.     Z       CURFIG OFF
  1225.     u          CURFIG OFF
  1226.  
  1227.     É        LTHAND
  1228.  
  1229.     n             CURITEM BATTERY_TO_INSERT
  1230.     @Ç¥   PREPAREBATTERYFORSTORAGE
  1231.  
  1232.     M      REMOVE_BATT CONTINUE 60
  1233.     @Çå   (`ü╝          , 100, -2048) 
  1234.     I  @ÇÜ            (MY_BATTERY) = $Ç╗    THEN
  1235.         Q       "/!Can't find my_battery!"      //DO NOT TRANSLATE
  1236.     W    1 SECOND
  1237.     f         LTHAND
  1238.     n             CURITEM BATTERY_REMOVED
  1239.  
  1240.     W    1 SECOND
  1241.  
  1242.     M      INSERT_BATT CONTINUE 60
  1243.     @Çå   (`ü╝          , 100, -2048) 
  1244.     I  @ÇÜ            (BATTERY_TO_INSERT) = $Ç╗    THEN
  1245.         Q       "/!Can't find battery_to_insert!"       // DO NOT TRANSLATE
  1246.     W    1 SECOND
  1247.     n             CURITEM MY_BATTERY
  1248.     f         INVENTORY
  1249.  
  1250.     W    1 SECOND
  1251.  
  1252.     M      SWITCH_BACK CONTINUE
  1253.     I  @ÇÜ            (BATTERY_REMOVED) = $Ç╗    THEN
  1254.         Q       "/!Can't find battery_removed!" // DO NOT TRANSLATE
  1255.     W    8
  1256.     f         RTHAND
  1257.     @Ç¥   RESTOREALIASOFBATTERY
  1258.  
  1259.     u          CURFIG ON
  1260.     Z       CURFIG ON
  1261.     A  ON
  1262. }
  1263.  
  1264. { GIVELEXSTARTINGBATT
  1265.     @Ç¢               PLAYER
  1266.     e          MONBAT
  1267.     n             CURITEM MY_BATTERY
  1268.     f         INVENTORY
  1269.     .ÇüÇÇ                  = 100
  1270.     .ÇüÇü                  = 100
  1271.     .ÇüÇé                  = $üö     
  1272. }
  1273.  
  1274. { KEY_USE
  1275.  
  1276.     // EVEN THOUGH KEYDEVICE HAS AN E AFTER THE D IN THIS MOTION NAME,
  1277.     // THE OBJECT ITSELF IS SPELLED KEYDVICE. -KLD
  1278.     M      USE_KEYDEVICE CONTINUE
  1279.     W    25
  1280. }
  1281.  
  1282. { KEYDVICE_USE
  1283.  
  1284.     I  @ÇÄ             (LND) = $Ç╗    THEN é     
  1285.  
  1286.     M      USE_KEYDEVICE CONTINUE
  1287.     W    25
  1288.  
  1289.     I  ^éû         != 1 AND ^éû         != 0 THEN é     
  1290.     @Ç¢               PLAYER
  1291.     I  @Ç¡        (CURFIG,LNDDR2) THEN é     
  1292.  
  1293.     I  ^éû         == 0 THEN
  1294.         {
  1295.         @Çå   (`üé      ,LNDDR2)
  1296.         I  @ÇÄ             (LND3) OR @ÇÄ             (LND4) OR @ÇÄ             (LND5) THEN
  1297.             {
  1298.             C      LND5
  1299.             ^ä½           = $é╝     
  1300.                         @Çè               (^éû        , -1, 22, 1,  3)
  1301.             C      UNLOCK
  1302.             }
  1303.         }
  1304.     E   
  1305.         {
  1306.         @Çå   (`üé      ,LNDDR2)
  1307.         I  @ÇÄ             (LND3) OR @ÇÄ             (LND4) OR @ÇÄ             (LND5) THEN
  1308.             {
  1309.             C      LND5
  1310.                         @Çè               (^éû        , +1, 1, 22, 3)
  1311.             ^ä½           = $é║      
  1312.             ^éû         = 0
  1313.             C      UNLOCK
  1314.             }
  1315.         }
  1316. }
  1317.  
  1318. { REFLECT_OFF
  1319.  
  1320.     A  OFF
  1321.     @Çå   ( `äí  )
  1322.     Q       "Internal battery power has been depleted!"             // DON'T TRANSLATE!
  1323.  
  1324.     ù           (LEX)
  1325.     I  @ÇÄ              BCH || @ÇÄ              LND || @ÇÄ              PAD THEN
  1326.         {
  1327.         M      CHOKE
  1328.         @Ç¥   KILLLEX
  1329.         é     
  1330.         }
  1331.     A  ON
  1332. }
  1333.  
  1334.  
  1335. // USING THE REFLECT WHILE WEARING A HARDSUIT SHOULD SIMPLY NOT WORK. -KLD
  1336. { REFLECT_USE
  1337.  
  1338.     I  @ÇÜ             MY_BATTERY != 1 THEN
  1339.         {
  1340.         Q       "My_Battery can't be found!"    // DON'T TRANSLATE!
  1341.         é     
  1342.         }
  1343.  
  1344.     I  .ÇüÇÇ             =< 0 THEN
  1345.         {
  1346.         @Çå   (`ຠ      )
  1347.  
  1348.         // PASS TO REMOVE CAPTIONS. -KLD
  1349.         // CAPTION "Insufficient battery power to activate Reflect device!"     // DON'T TRANSLATE!
  1350.         é     
  1351.         }
  1352.  
  1353.     I ( @Ç⌐      ( HARD ) ) THEN
  1354.         {
  1355.         @Çå   (`ä¡       )
  1356.         é     ;
  1357.         }
  1358.  
  1359.     A  OFF
  1360.  
  1361.     @Çå   ( `äí  )
  1362.     M      ZIP_TRIP_START 60
  1363.  
  1364.     @Çå   ( `äí  )
  1365.     M      ZIP_TRIP_STOP 60
  1366.  
  1367.     I ( @Ç⌐      (LEX) ) THEN
  1368.         {
  1369.         ù           (LEXMIR)
  1370.         ^ä╝                    = @Çì      REFLECTBATTDRAIN
  1371.         ^Çÿ            = $é║      
  1372.         }
  1373.     E   
  1374.         {
  1375.         ù           (LEX)
  1376.         I  @ÇÄ              BCH || @ÇÄ              LND || @ÇÄ              PAD THEN
  1377.             {
  1378.             M      CHOKE
  1379.             @Ç¥   KILLLEX
  1380.             é     
  1381.             }
  1382.         ^Çÿ            = $é╗      
  1383.         }
  1384.     A  ON
  1385. }
  1386.  
  1387. [ REFLECTBATTDRAIN
  1388.  
  1389.     :TOP
  1390.     60:00
  1391.             I  @ÇÜ             MY_BATTERY != 1 THEN
  1392.                 {
  1393.                 Q       "My_Battery can't be found!"    // DON'T TRANSLATE!
  1394.                 é     
  1395.                 }
  1396.             .ÇüÇÇ             --
  1397.             I  .ÇüÇÇ             =< 0 THEN @Ç¥   REFLECT_OFF
  1398.             ò            
  1399.             I  @Ç⌐      (LEXMIR) THEN J    #ü£
  1400. ]
  1401.  
  1402.  
  1403. { GRENADE_USE
  1404.     M      GRENADE_TOSS
  1405. }
  1406.  
  1407. // SCANNER_USE IN XLATOR.SCR
  1408.  
  1409. //$ 26 - version number
  1410.